home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESGRAF1.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  73 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;*************************************************************************
  9. ;*
  10. ;* Graphics Library routines 1 of 5.
  11. ;*
  12. ;*************************************************************************
  13.  
  14. ;-------------------------------------------------------------------------
  15. ; graf_rubberbox
  16. ;-------------------------------------------------------------------------
  17.  
  18.           globl     _graf_rubberbox
  19. _graf_rubberbox:
  20. ;          .cargs    #8,mx,my,mw,mh,pw.l,ph.l
  21.  
  22. mx                =    8
  23. my                =    10
  24. mw                =    12
  25. mh                =    14
  26. pw                =    16
  27. ph                =    20
  28.  
  29.           link        a6,#-6
  30.  
  31.           move.l    #$46040300,d0       ; AControl  70,4,3,0
  32.  
  33.           moveq.l    #-6,d1                ;  = intout
  34.           lea        mx(a6),a1           ; -> intin
  35.           jsr        aes_call
  36.  
  37.           moveq.l    #-6,d1
  38.           lea        pw(a6),a1
  39.           jmp        (a0)
  40.  
  41. ;-------------------------------------------------------------------------
  42. ; graf_dragbox
  43. ;-------------------------------------------------------------------------
  44.  
  45.           globl     _graf_dragbox
  46. _graf_dragbox:
  47. ;          .cargs    #8,sw,sh,sx,sy,bx,by,bw,bh,px.l,py.l
  48.  
  49. sw                =    8
  50. sh                =    10
  51. sx                =    12
  52. sy                =    14
  53. bx                =    16
  54. by                =    18
  55. bw                =    20
  56. bh                =    22
  57. px                =    24
  58. py                =    28
  59.  
  60.           link        a6,#-6
  61.           move.l    #$47080300,d0       ; AControl  71,8,3,0
  62.  
  63.           moveq.l    #-6,d1                ;  = intout
  64.           lea        sw(a6),a1           ; -> intin
  65.           jsr        aes_call
  66.  
  67.           moveq.l    #-6,d1
  68.           lea        px(a6),a1
  69.           jmp        (a0)
  70.  
  71. ;          end of code
  72.  
  73.